home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / end finder (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  48 lines
  1. 10 bk$=" [146]":dimg$(16):poke816,165:poke817,244
  2. 100 print"[147][144] [198]inds the end address of files on disk."
  3. 110 printtab(12);"[204]ouis [198]. [211]ander"
  4. 115 print"               [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  5. 120 print"[145][145][197]nter [198]ilename:";bk$;:mo=191:nc=16:gosub60500:f$=a$
  6. 125 ifa$=""then190
  7. 130 open2,8,2,f$
  8. 140 poke782,1:sys65493
  9. 150 close2
  10. 160 open15,8,15:input#15,a,b$:close15:ifa>19thenprint"";b$:goto182
  11. 170 ea=peek(174)+256*peek(175)
  12. 180 print"[197]nd [193]ddress is:";ea
  13. 182 print"     [208]ress[160][[210][197][212][213][210][206]] to continue."
  14. 184 geta$:ifa$<>chr$(13)then184
  15. 185 print"[145]                                      "
  16. 190 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  17. 195 print" [221][208]ress: [198]1 - [210]un this program again. [221]"
  18. 200 print" [221][163][163][163][163][163]  [198]7 - [210]eturn to [212]ips & [212]ricks.[221]"
  19. 205 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  20. 210 geta$:ifa$="[133]"thenrun
  21. 220 ifa$<>"[136]"then210
  22. 230 goto63995
  23. 60500 forz8=1tonc
  24. 60502 geta$:ifa$=""then60502
  25. 60503 ifa$="[147]"ora$=""ora$="[148]"ora$="[145]"ora$="[157]"ora$=""ora$=""then60502
  26. 60504 ifa$=chr$(13)ora$=chr$(141)thenprint"[157] ":goto60544
  27. 60506 ifa$=" "ora$="[160]"then60540
  28. 60508 ifa$=chr$(20)andz8=1then60502
  29. 60510 ifa$=chr$(20)thenz8=z8-1:print"[157][157]  [157][157]";bk$;:goto60502
  30. 60520 ifa$>"/"anda$<":"and(moand2)then60540:numbers
  31. 60522 ifa$>" "anda$<"*"and(moand4)then60540:shift numbers
  32. 60524 ifa$>"[192]"anda$<"[219]"and(moand8)then60540:uppercase characters
  33. 60526 ifa$>"@"anda$<"["and(moand16)then60540:lowercase characters
  34. 60528 ifa$>chr$(160)anda$<chr$(192)and(moand32)then60540:commodore characters
  35. 60530 ifa$>=chr$(0)anda$<""and(moand64)then60540:ctrl characters
  36. 60532 ifa$>")"anda$<"0"and(moand128)then60540:misc characters group 1
  37. 60534 ifa$>"9"anda$<"a"and(moand128)then60540:misc characters group 2
  38. 60536 ifa$>"z"anda$<"[129]"and(moand128)then60540:misc characters group 3
  39. 60538 goto60502
  40. 60540 print"[157]";a$;:poke212,.:printbk$;
  41. 60542 g$(z8)=a$:next
  42. 60544 print"[157][146] "
  43. 60546 a$="":fora=1toz8-1:a$=a$+g$(a):next:ifz8=1thena$=""
  44. 60548 return
  45. 63995 print"[147]    [210]eturning to [212]ips & [212]ricks [205]enu."
  46. 63998 print"[159]l[207]";chr$(34);"tips & tricks";chr$(34);",8"
  47. 63999 poke631,13:poke632,13:poke633,82:poke634,213:poke635,13:poke198,5:new
  48.